!еһ򵥵Ķάӷ, ANSYSԪ-ṹϷܽ 
!кӹ̷, 㺸ӹе¶ȷֲӦֲԼȴĺӦ 
FINISH
/CLEAR
/FILN,E143
/TITLE,WELD ANALYSIS 
/PREP7 
/UNIT,SI ! ùʵλ 
ET,1,13,4        !13ŶάϵԪ, ͬʱ¶Ⱥλɶ 
ET,2,13,4 
! 1ŲǸ  2Ų  3Ųͭ 
! Ǳηеĺ, ֽṹֺͭṹֺ 
! ڼ¶ȵ, ϵĵģ 
MPTEMP,1,20,500,1000,1500,2000 
MPDATA,EX,1,1,1.93E11,1.50E11,0.70E11,0.10E11,0.01E11 
MPDATA,EX,2,1,1.02E11,0.50E11,0.08E11,0.001E11,0.0001E11 
MPDATA,EX,3,1,1.17E11,0.90E11,0.30E11,0.05E11,0.005E11 
! ɱ(Ϊֵ) 
MPDATA,NUXY,1,1,0.29,0.29,0.29,0.29,0.29
MPDATA,NUXY,2,1,0.3,0.3,0.3,0.3,0.3
MPDATA,NUXY,3,1,0.3,0.3,0.3,0.3,0.3
! ܶ(Ϊֵ) 
MPDATA,DENS,1,1,8030,8030,8030,8030,8030
MPDATA,DENS,2,1,4850,4850,4850,4850,4850
MPDATA,DENS,3,1,8900,8900,8900,8900,8900
! ϵ(Ϊֵ) 
MPDATA,ALPX,1,1,1.78E-5,1.78E-5,1.78E-5,1.78E-5,1.78E-5
MPDATA,ALPX,2,1,9.36E-6,9.36E-6,9.36E-6,9.36E-6,9.36E-6
MPDATA,ALPX,3,1,1.66E-5,1.66E-5,1.66E-5,1.66E-5,1.66E-5
! ȴϵ(Ϊֵ) 
MPDATA,KXX,1,1,16.3,16.3,16.3,16.3,16.3
MPDATA,KXX,2,1,7.44,7.44,7.44,7.44,7.44
MPDATA,KXX,3,1,393,393,393,393,393
! (Ϊֵ) 
MPDATA,C,1,1,502,502,502,502,502
MPDATA,C,2,1,544,544,544,544,544 
MPDATA,C,3,1,385,385,385,385,385
! ڸ13ŵԪдɶ, ˴һ, ӰĵĽ 
MPDATA,MURX,1,1,1,1,1,1,1
MPDATA,MURX,2,1,1,1,1,1,1
MPDATA,MURX,3,1,1,1,1,1,1
! 躸()ȥĳʼ¶1500 
MP,REFT,1,20 
MP,REFT,2,1500 
MP,REFT,3,20 
! ϶˫涯ӲԱϵ 
! ֲڸ¶ȵµӦĵģ 
TB,BKIN,1,5 
TBTEMP,20,1 
TBDATA,1,1200E6,0.193E11 
TBTEMP,500,2 
TBDATA,1, 933E6,0.150E11 
TBTEMP,1000,3 
TBDATA,1, 435E6,0.070E11 
TBTEMP,1500,4 
TBDATA,1, 70E6,0.010E11 
TBTEMP,2000,5 
TBDATA,1, 7E6,0.001E11 
! ͭڸ¶ȵµӦĵģ 
TB,BKIN,2,5 
TBTEMP,20,1 
TBDATA,1,800E6,0.102E11 
TBTEMP,500,2 
TBDATA,1,400E6,0.050E11 
TBTEMP,1000,3 
TBDATA,1, 70E6,0.008E11 
TBTEMP,1500,4 
TBDATA,1, 1E6,0.0001E11 
TBTEMP,2000,5 
TBDATA,1,0.1E6,0.00001E11 
! ڸ¶ȵµӦĵģ 
TB,BKIN,3,5 
TBTEMP,20,1 
TBDATA,1,900E6,0.117E11 
TBTEMP,500,2 
TBDATA,1,700E6,0.090E11 
TBTEMP,1000,3 
TBDATA,1,230E6,0.030E11 
TBTEMP,1500,4 
TBDATA,1, 40E6,0.005E11 
TBTEMP,2000,5 
TBDATA,1, 4E6,0.0005E11 
! ģ 
K,1,0,0,0 
K,2,0.5,0,0 
K,3,1,0,0 
K,4,0,0.26,0 
K,5,0.35,0.26,0 
K,6,0.65,0.26,0 
K,7,1,0.26,0 
K,8,0.5,0.300167
LARC,5,6,8               !ɻ
A,1,2,5,4                !ɹؼ1254
A,2,3,7,6                !ɹؼ2367
AL,1,3,9                 !߶139
! ֵԪ 
MSHKEY,1                 !ӳ񻮷
ESIZE,0.025              !õԪߴ
TYPE,2                   !ָԪ2
MAT,2                    !ָ2
AMESH,3                  !2
ESIZE,0.05               !õԪߴ
TYPE,1                   !ָԪ1
MAT,1                    !ָ1 
AMESH,1                  !1 
MAT,3                    !ָ3  
AMESH,2                  !3 
!ʩԼغ
/SOLU 
ANTYPE,4                 !趨Ϊ˲̬ 
NSEL,S,LOC,X,0 
D,ALL,UX,0               !ģ͵߽λԼ 
NSEL,R,LOC,Y,0
D,ALL,UY,0               !ģ͵ŵʩYԼ

! ģ͵ұ߽紦¶ʼձ20, ߽ȶʩӣ˴ֻʩӺ±߽ 
NSEL,ALL 
NSEL,S,LOC,X,0 
NSEL,R,LOC,X,1
D,ALL,TEMP,20 

ESEL,ALL                            !ѡеԪ
*GET,EMAX,ELEM,,NUM,MAX             !ȡԪ
ASEL,S,AREA,,3                      !ѡΪ3
ESLA                                !ѡ3ĵԪ
*GET,NSE,ELEM,,COUNT                !õԪĸ

*DIM,NE,,NSE                        !NE飬ڼ¼еԪ
*DIM,NEX,,NSE                       !NEX飬ڼ¼ϵX
*DIM,NEY,,NSE                       !NEY飬ڼ¼ϵY
*DIM,NEORDER,,NSE                   !嵥Ԫ飨ռλУ
MINE=0                              !ֵԼ¼ѭÿѡеĵԪ

!*************************************************************
! DOѭڽĵԪYԱģ⺸""Ĺ 
*DO,I1,1,NSE 

ESEL,U,ELEM,,MINE                   !ųղѾ¼ĵԪ
*GET,NSE1,ELEM,,COUNT               !õʣ൥Ԫ
II=0 

*DO,I,1,EMAX 
*IF,ESEL(I),EQ,1,THEN 
II=II+1 
NE(II)=I 
*ENDIF 
*ENDDO 

!ȡϵX,Yֱ꣬洢NEX,NEY
*DO,I,1,NSE1 
*GET,NEY(I),ELEM,NE(I),CENT,Y 
*GET,NEX(I),ELEM,NE(I),CENT,X 
*ENDDO 
MINY=1E20                    !趨޴ֵжϱȽ
MINX=1E20 
!ѭУѡԪY꡴MINYͽMINXMINYMINE
!Yһ£XСÿҵСģ¼䵥Ԫ
*DO,I,1,NSE1 
*IF,NEY(I),LT,MINY,THEN 
MINY=NEY(I) 
MINX=NEX(I) 
MINE=NE(I) 
*ELSE 
*IF,NEY(I),EQ,MINY,THEN 
*IF,NEX(I),LT,MINX,THEN 
MINY=NEY(I) 
MINX=NEX(I) 
MINE=NE(I) 
*ENDIF 
*ENDIF 
*ENDIF 
*ENDDO 
NEORDER(I1)=MINE 
*ENDDO 
!*STATUS,NEORDER
!*********************************************************** 

MAX_TEM=1500          ! ǰ裬ϵĳʼ¶Ϊ1500 
DT1=1E-3              ! ڽʼһСʱ 
DT=5                  ! һԪʱ 
T=0                   ! ʼʱ 
ESEL,ALL 
/EPLOT 

! ڵ3ǺˣȽĵԪ"ɱ" 
*DO,I,1,NSE 
EKILL,NEORDER(I)      !ѭɱԪ
ESEL,S,LIVE           !ѡԪ
*ENDDO 

ALLSEL,ALL           
OUTRES,ALL,ALL        !趨ѡ
IC,ALL,TEMP,20        !ʩӳʼ¶ֵ20
KBC,1                 !趨غʽΪSTEPPED
TIMINT,0,STRUCT       !ʱ䲽ѡ
TIMINT,1,THERM 
TIMINT,0,MAG 
TINTP,0.005,,,1,0.5,0.2 
NSUB1=2               !趨Ӳ1
NSUB2=40              !趨Ӳ2

*DO,I,1,NSE 
EALIVE,NEORDER(I) 
ESEL,S,LIVE 
ESEL,ALL 
! ڽ¶ȵĳʼ 
T=T+DT1 
TIME,T 
NSUBST,1 
!Ԫĸڵ¶Լ
*DO,J,1,4 
D,NELEM(NEORDER(I),J),TEMP,MAX_TEM       !NELEM(ENUM,NPOS)صԪENUMNPOSλõĽڵ
*ENDDO 
SOLVE 
! ڱ֤ʼٶΪ 
T=T+DT1 
TIME,T 
SOLVE 
! Ĳ¶ȷֲ 
*DO,J,1,4 
DDELE,NELEM(NEORDER(I),J),TEMP 
*ENDDO 

T=T+DT-2*DT1 
TIME,T 
NSUBST,NSUB1 
SOLVE 
*ENDDO 

T=T+50000 
TIME,T 
NSUBST,NSUB2 
SOLVE 
FINISH 

/POST1 
SET,LAST                             !ȡһ
PLNSOL, TEMP,, 0,1.0                 !鿴γɵ¶ȳ
PLNSOL, S,EQV, 2,1.0                 !鿴Ӧ

! һϵӦĶļ 
/SEG,DELE 
/CONT,1,15,0,1200E6/16,1200E6 
/DSCALE,1,1.0 
AVPRIN,0,0 
AVRES,1 
/SEG,MULTI,STRESS,0.1 
ESEL,ALL 
*DO,I,1,NSE 
ESEL,U,ELEM,,NEORDER(I) 
*ENDDO 
*DO,I,1,NSE 
ESEL,A,ELEM,,NEORDER(I) 
SET,(I-1)*3+1,1 
PLNSOL,S,EQV 
*DO,J,1,NSUB1 
SET,(I-1)*3+3,J 
PLNSOL,S,EQV 
*ENDDO 
*ENDDO 
*DO,I,1,NSUB2 
SET,(NSE-1)*3+4,I 
PLNSOL,S,EQV 
*ENDDO 
/SEG,OFF,STRESS,0.1 
/ANFILE,SAVE,STRESS,AVI 

! һϵ¶ȵĶļ 

/SEG,DELE 
/CONT,1,15,0,1500/16,1500 
/DSCALE,1,1.0 
AVPRIN,0,0 
AVRES,1 
/SEG,MULTI,TEMP,0.1 
ESEL,ALL 
*DO,I,1,NSE 
ESEL,U,ELEM,,NEORDER(I) 
*ENDDO 
*DO,I,1,NSE 
ESEL,A,ELEM,,NEORDER(I) 
SET,(I-1)*3+1,1 
PLNSOL,TEMP 
*DO,J,1,NSUB1 
SET,(I-1)*3+3,J 
PLNSOL,TEMP 
*ENDDO 
*ENDDO 
*DO,I,1,NSUB2 
SET,(NSE-1)*3+4,I 
PLNSOL,TEMP 
*ENDDO 
/SEG,OFF,TEMP,0.1 
/ANFILE,SAVE,TEMP,AVI 

FINISH 
